home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / memory / emsaw41s.zip / TEST1CL.PRG < prev    next >
Text File  |  1994-06-26  |  1KB  |  40 lines
  1. * Example of the program in CLIPPER:
  2. * Compiler settings: add Extend library.
  3. * Use segcl.obj and segemsc.obj. 
  4. * (See note 5)
  5. *    Prevent Clipper VMM (Virtual Memory Management) system to grab
  6. * all EMS by setting E option in the CLIPPER environmental variable:
  7. *
  8. * SET CLIPPER=E<limit_EMS_memory_for_Clipper_in_kilobytes>
  9. *
  10. * Clipper is registered trademark of Nantucket, Inc.
  11. *
  12. *
  13. *      TESTCL.PRG
  14. *
  15. PRIVATE totsiz, avsiz, A, index, bitnu, length, val1, val2
  16. *
  17.      CLEAR
  18.      eminitcl()
  19.      sizar (@totsiz, @avsiz)
  20. @ 0,0 SAY totsiz PICTURE "99999999"
  21. @ 0,14 SAY avsiz  PICTURE "99999999"
  22.      newar (@A, avsiz)
  23.      index:=avsiz
  24.      val1:=99999999
  25.      setint (A, index, val1)
  26.      val2:= getint (A, index)
  27. @ 1,0 SAY val1   PICTURE "99999999"
  28. @ 1,14 SAY val2   PICTURE "99999999"
  29.      index:=avsiz-2
  30.      bitnu:=7
  31.      length:=30
  32.      setf (A, index, bitnu, length, val1)
  33.      getf (A, index, bitnu, length, val2)
  34. @ 3,0 SAY val1   PICTURE "99999999"
  35. @ 3,14 SAY val2   PICTURE "99999999"
  36.         freear (A)
  37. @ 4,0 SAY totsiz PICTURE "99999999"
  38. @ 4,14 SAY avsiz  PICTURE "99999999"
  39.  
  40.